home *** CD-ROM | disk | FTP | other *** search
/ Electronic Clipper 1996 November / Electronic Clipper 1996 November.iso / ideasrc / pyramid.dir / 00055.ls < prev    next >
Encoding:
Text File  |  1996-10-11  |  424 b   |  16 lines
  1. on mouseDown
  2.   puppetSprite(23, 1)
  3.   set the castNum of sprite 23 to 54
  4.   updateStage()
  5.   puppetSprite(23, 0)
  6.   if the number of chars in field "fats" < 2 then
  7.     put "/ 1 to 2" after field "fats"
  8.     put "/ 2 to 3" after field "dairy"
  9.     put "/ 2 to 3" after field "meats"
  10.     put "/ 3 to 5" after field "vegies"
  11.     put "/ 2 to 4" after field "fruit"
  12.     put "/ 6 to 11" after field "breads"
  13.     go("eval")
  14.   end if
  15. end
  16.